Top 10k strings from Night Sky, The (1983)(Bridge Software)(16k).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   4           
   2 skycolour:
   2 ld=cld+180
   2 ;"N=North    S=South";
   2 )-offset-1
   1 z1=(sd-s5*
   1 x=((x-a)*4
   1 t=(de*cv+(days*av-bv))
   1 stime=4100
   1 start=8060
   1 spect       
   1 skycolour=5000
   1 sdate=4000
   1 sc        
   1 saspect=4200
   1 s5=.788010754
   1 restart=8085
   1 q$="WNESWN"
   1 offset=1020
   1 nsg       
   1 nscz      d
   1 ns        
   1 m=(days*.98562
   1 l1=sd*s5+cd*c5*cH
   1 g=days*0.065709
   1 dm=(ld-a/15
   1 de=h+(me/60
   1 days=dy+(mo
   1 days=dc+db
   1 d=2.04203523
   1 c5=.615661475
   1 c$="West":
   1 c$="South":
   1 c$="South"
   1 c$="North":
   1 c$="East":
   1 ate/time, 
   1 artridge or 
   1 WWWWWWWWWWWWWWWWW
   1 THE NIGHT SKY
   1 SC$       
   1 OPY starchart      " 
   1 =p+(ho+mi/60
   1 ="w")-3010
   1 ;m$;" ";dy;
   1 ;ho;".";mi;" hrs."
   1 ;"complete"
   1 ;"Time(UT)=";h;"h";me;"m Date=";db;"/";md;" ";c$:
   1 ;"T=New Time M=Magnitude C=Copy";
   1 ;"Select aspect - press 
   1 ;"Plot halted - ";k;" star"+("s"
   1 ;"New time? Press 
   1 ;"Month (1-12) ?";md
   1 ;"Minutes (0-59) ?";me
   1 ;"Magnitude           Star no.    "
   1 ;"Hours (0-23) ?";h
   1 ;"E=East     W=West";
   1 ;"E=East     W=West"
   1 ;"Display name? Max 10 characters";
   1 ;"Day (1-31) ?";db
   1 ;"Commands  (after time input)"
   1 ;"  Still LOADing -let tape run   "
   1 ;"                                       PROGRAM NOW LOADING      "
   1 ;          " Another 
   1 8888888888888888888888888888888888888888888888888888888888888888y
   1 8888888888888888888888888888888888888888888888888888888888888888N
   1 -0.471238898
   1 *offset*(spli=0
   1 ***   STAR CHART   ***              SCT.01 1.11.83
   1 )+" plotted";
   1 )*1.002743
   1 (m*zz)+days*.98562
   1 (dm*zz))*.601815
   1 (d*zz))*.7986355
   1 "Minutes (0-59) ";mi:
   1 "January","February","March","April","May","June","July","August","September","October","November","December"
   1 "Hours (0-23) ";ho:
   1 "Enter month (1-12) ";mo:
   1 "Date (1-31) ";dy:
   1 "279.041470":
   1 "1.9159708"*
   1  Altitude):";
   1  Altitude):"
   1  1983 BRIDGE SOFTWARE  
   1